Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/BONDS.FCP

Text File | 1990-09-23 | 545b | 48 lines

@DSPLY "This program computes"
@DSPLY "the effective rate"
@DSPLY "of interest or YIELD."
=
@NEW STEP
@GET "Face Value of bond"
@RIN (1)
@GET "Cost of bond"
@RIN (2)
@GET "Annual interest rate"
@RIN (3)
@GET "Years to maturity"
@RIN (4)
@ROUT (3)
/100=
@RIN (3)
=
@NEW STEP
@ROUT (1)
*
@ROUT (3)
=
@NEW STEP
@RIN (5)
@ROUT (2)
-
@ROUT (1)
=
@NEW STEP
/
@ROUT (4)
=
@NEW STEP
@RIN (6)
@ROUT (5)
-
@ROUT (6)
=
@NEW STEP
/
@ROUT (2)
=
@NEW STEP
*100=
@NEW STEP
@DSPLY "Effective interest rate"
@STOP